home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / DLGoodies / lister.dopus5 < prev    next >
Text File  |  1996-08-29  |  641b  |  33 lines

  1. /*
  2.  * Open up a new lister and display device, (volume, assign) list.
  3.  * V1.0 (2.7.96) by David Lübbren.
  4.  *
  5.  * The emphasis is on NEW lister. If source listers are active they are
  6.  * temporarily disabled (Hack).
  7.  *
  8.  * Call: Arexx Dopus5:Arexx/lister.dopus5
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. PARSE ARG dopusport
  14. IF dopusport ~= "" THEN ADDRESS VALUE dopusport
  15. ELSE DO
  16.   SAY "No DOpus running !"
  17.   EXIT
  18. END
  19.  
  20. lister query source stem handles.
  21. IF rc = 0 THEN DO
  22.   DO i = 0 TO handles.count - 1
  23.     lister set handles.i off
  24.   END
  25.   command DeviceList
  26.   DO i = 0 TO handles.count - 1
  27.     lister set handles.i source
  28.   END
  29. END
  30. ELSE
  31.     command DeviceList
  32. EXIT
  33.